home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.10 Oct 91 / Jorg October / Globals.inc < prev    next >
Encoding:
Text File  |  1991-08-27  |  747 b   |  23 lines  |  [TEXT/MPS ]
  1.     implicit none
  2.     logical quittingTime, inBackground
  3.     record /EventRecord/ curEvent        
  4.     pointer /grafport/ curWindow
  5.     pointer /WinInfoRec/ cur
  6.     record /WinInfoRec/ noCur        
  7.     pointer /QDGlobals/ QDG
  8.     record /MenuHandle/ AppleMenu
  9.     record /MenuHandle/ FileMenu
  10.     record /MenuHandle/ EditMenu
  11.     Common /MenuStuff/ AppleMenu, FileMenu, EditMenu  
  12.     Common /globalstuff/ QDG, quittingTime, inBackground, curEvent
  13.     Common /globalstuff/ curWindow, cur, noCur
  14.     
  15.     INTEGER*4 JQDGlobals    ! QDG = JQDGlobals()
  16.     EXTERNAL JQDGlobals        ! Use to access QuickDraw globals
  17.     EXTERNAL DATE            ! CALL DATE(CHARACTER*9)
  18.     EXTERNAL EXIT            ! CALL EXIT
  19.     EXTERNAL IDATE            ! CALL IDATE(IMO,IDAY,IYR)
  20.     EXTERNAL RAN            ! REAL*4 = RAN(INTEGER*4)
  21.     EXTERNAL TIME            ! CALL TIME(CHARACTER*8)
  22.  
  23.